FiveTech Software tech support forums

cSQL := " insert into #ppru "
cSQL += "values('123456','T25CD',,,20.4444,120.00,,,'01','T25CD')"
 

    cSQL := " insert into #ppru "
    cSQL += "values('123456','T25CD',0,0,20.4444,120.00,0,0,'01','T25CD')"
 

    cSQL := "CREATE TABLE #ppru"
    cSQL += "("
    cSQL += "numero CHAR(6) NOT NULL, "
    cSQL += "articu VARCHAR(10) NOT NULL, "
    cSQL += "cantid int DEFAULT 0, "
    cSQL += "mts INT DEFAULT 0,"
    cSQL += "precio NUMERIC(12,4),"
    cSQL += "total NUMERIC(10,2),"
    cSQL += "unid int DEFAULT 0,"
    cSQL += "stock int DEFAULT 0,"
    cSQL += "codusu char(6) NOT NULL,"
    cSQL += "subart varchar(10) "
    cSQL += ")"

    Try
        oCon:Execute( cSQL )
    Catch
        MsgInfo( "Table Create ppru Failed" )
    End try

    cSQL := " insert into #ppru "
    //cSQL += "values('123456','T25CD',,,20.4444,120.00,,,'01','T25CD')"      ===> consigo error en la insercion
    cSQL += "values('123456','T25CD',0,0,20.4444,120.00,0,0,'01','T25CD')"   ===> sin error

    Try
        oCon:Execute( cSQL )
    Catch
        MsgInfo( "Fallo en la insercion" )
    End try
 

cSQL := " insert into #ppru (numero,articu,precio,total,codusu,subart) "
cSQL += "values('123456','T25CD',20.4444,120.00,'01','T25CD')"
 

  cSQL += "values('123456','T25CD',DEFAULT,DEFAULT,20.4444,120.00,DEFAULT,DEFAULT,'01','T25CD')"
 

            cCmdSql := "INSERT INTO " +;
                                "AppSap.DetNdc " +;
                            "SET " +;
                                "DET_SER = '" + oRsFil:Fields("DET_SER"):Value + "'," +;
                                "DET_NDC = " + STR(oRsFil:Fields("DET_NDC"):Value,07,0) + "," +;
                                "DET_CTD = " + STR(oRsFil:Fields("DET_CTD"):Value,09,3) + "," +;
                                "DET_UDM = '" + oRsFil:Fields("DET_UDM"):Value + "'," +;
                                "DET_POR = " + STR(IIF(oRsFil:Fields("DET_POR"):Value,1,0),1,0) + "," +;
                                "DET_DES = '" + cDes + "'," +;
                                "DET_PUN = " + STR(oRsFil:Fields("DET_PUN"):Value,11,2) + "," +;
                                "DET_IMP = " + STR(oRsFil:Fields("DET_IMP"):Value,11,2)
            TRY
                oApp:oCon:Execute(cCmdSql)
            CATCH oError
                MsgInfo("No pude ejecutar el comando " + cCmdSql,oApp:cAplicacion)
                oApp:oCon:ShowError()
            END