Genexus

Lo que deseo hacer es
1-) leer los atributos de la tabla contratos
2-) guardar en las variables definidas los atributos
3-) hacer una comparacion con el tipo de contrato
4-) Crear acumuladores para guardar el detalle del prestamo
5-) Grabar los detalles de cada iteracion del detalle

esto es lo que he planteado

for each
        where TabContratosId=&TabContratosId
        &TabContratosId=TabContratosId
        &TabClienteId=TabClienteId
        &TabContratosFechaIni=TabContratosFechaIni
        &TabContratosPlazo=TabContratosPlazo
        &TabContratosLetra=TabContratosLetra
        &TabContratosMontoPres=TabContratosMontoPres
        &TabContratosTipo=TabContratosTipo
//        &AcumPagoInicial=TabContratosEscalonados1PagoInicial
//        &AcumPagoFinal=TabContratosEscalonados1PagoFin
//        &AcumLetra=0
        msg("Lo datos han sido leidos")
    endfor

//    for each
//        where TabContratosLetra<&AcumLetra
            do 'ValidaTipoContrato'
                if &FlagTipo=1
//                    &AcumPagoInicial=&AcumPagoInicial+1
//                    &AcumPagoFinal=&AcumPagoInicial+1
//                    &AcumTotal=&AcumPagoInicial+&AcumPagoFinal
//                    &AcumLetra=&AcumLetra+&TabContratosLetra
//                do 'IngresarDetalle'
                    Msg("El registro  a sido ingresado")
                else &FlagTipo=0
                    Msg("El registro no a sido ingresado")
                endif
//    endfor

Sub 'ValidaTipoContrato'
    if &TabContratosTipo='N'
        &FlagTipo=1
       
        else
            &FlagTipo=0
    endif
Endsub


//Sub 'ValidaTipoContrato'
//    if &TabContratosTipo='N'
//        &FlagTipo=1
//       
//    else
//        &FlagTipo=0
//        endif
////       
////    When none
////        &FlagTipo=0
////       
////    endfor
//endsub

            //Sub 'IngresarDetalle'
            //New
            //    TabContratosEscalonados1PagoInicial=&AcumPagoInicial
            //    TabContratosEscalonados1PagoFin=&AcumPagoFinal
            //    TabContratosEscalonados1TotalPag=&AcumTotal
            //    TabContratosEscalonados1Letra=&AcumLetra
            //endnew
            //endsub